﻿'/*
' ***** BEGIN LICENSE BLOCK *****
' * The contents of this file are subject to the Mozilla Public License
' * Version 1.1 (the "License"); you may not use this file except in
' * compliance with the License. You may obtain a copy of the License at
' * http://www.mozilla.org/MPL/
' *
' * Software distributed under the License is distributed on an "AS IS"
' * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
' * License for the specific language governing rights and limitations
' * under the License.
' *
' * The Original Code is BS1.
' *
' * The Initial Developer of the Original Code is SpaceMan.
' * Portions created by SpaceMan are Copyright (C) 2009
' * SpaceMan. All Rights Reserved.
' *
' * Contributor(s):
' * SpaceMan <sandaimespaceman@gmail.com>
' *
' * Alternatively, the contents of this file may be used under the terms
' * of the GNU Public License (the "GPL License"), in which case the
' * provisions of MPL License are applicable instead of those
' * above. If you wish to allow use of your version of this file only
' * under the terms of the GPL License and not to allow others to use
' * your version of this file under the MPL, indicate your decision by
' * deleting the provisions above and replace them with the notice and
' * other provisions required by the GPL License. If you do not delete
' * the provisions above, a recipient may use your version of this file
' * under either the MPL or the GPL License.
' ***** END LICENSE BLOCK *****
' */
Imports BS1.NET
Imports BS1.NET.BrainSpace1
Imports System.IO
#Const TESTCASE = True
Module CLIInterpreter
    Sub Main(ByVal sArgs() As String)
#If TESTCASE Then
        ReDim sArgs(1)
        sArgs(0) = "HelloWorld.bs1"
#End If
        If sArgs.Length = 0 Then
            Console.WriteLine("File is not specified.")
        Else
            Try
                Dim Context As New BS1.NET.BrainSpace1(FileGetContents(sArgs(0)), New ExampleHandler())
                Context.Run()
            Catch e As IOException
                Console.Error.WriteLine("Unable to open file:" + e.ToString())
            End Try
        End If
    End Sub
End Module
